home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / e-q / pbdemo304 / install / installfloppy next >
Text File  |  1993-03-18  |  2KB  |  79 lines
  1. .bra {
  2. .ket }
  3. .key DriveA,DriveB,LhA_path
  4. . This procedure will install the Pro-Board demo software to
  5. . two disks inserted in DF0: and/or DF1: as specified by DriveA and DriveB
  6.  
  7. IF {DriveA$"Nothing"} EQ "Nothing"
  8.    NEWCLI Con:100/10/477/123/Installation FROM InstallFloppy.usage
  9.    SKIP OutaHere
  10. ENDIF
  11.  
  12. IF NOT EXISTS {LhA_path$"C:LhA"}
  13.   ReqRequest " LhA must be in the command path. " " OK, it's there now " Quit
  14.   IF NOT WARN
  15.     SKIP OutaHere
  16.   ENDIF
  17.   IF NOT EXISTS {LhA_path$"C:LhA"}
  18.     ReqRequest " LhA MUST be in the command path! " QUIT
  19.     SKIP OutaHere
  20.   ENDIF
  21. ENDIF
  22.  
  23. IF NOT EXISTS Sys:System/Format
  24.   ReqRequest " FORMAT must be in your Sys:System directory " " OK, it's there now " Quit
  25.   IF NOT WARN
  26.     SKIP OutaHere
  27.   ENDIF
  28.   IF NOT EXISTS Sys:System/Format
  29.     ReqRequest " FORMAT MUST be in your Sys:System directory " QUIT
  30.     SKIP OutaHere
  31.   ENDIF
  32. ENDIF
  33.  
  34. ReqRequest " This procedure will format {DriveA} " Continue Quit
  35. IF NOT WARN
  36.   SKIP OutaHere
  37. ENDIF
  38.  
  39. FAILAT 31                  ; Control exits from this batch file
  40. IF NOT EXISTS ProDemoArc:
  41.   ASSIGN ProDemoArc: /     ; Set a source directory for installation
  42. ENDIF
  43.  
  44. SYS:System/FORMAT <NIL: >NIL: DRIVE {DriveA} NAME Pro-Demo QUICK NOICONS
  45. IF FAIL
  46.   SYS:System/FORMAT <NIL: >NIL: DRIVE {DriveA} NAME Pro-Demo NOICONS
  47.   IF FAIL
  48.     ProDemoArc:Install/ReqRequest " Floppy cannot be formatted " QUIT
  49.     SKIP OutaHere
  50.   ENDIF
  51. ENDIF
  52.  
  53. CD {DriveA}
  54. {LhA_path$"C:LhA"} x ProDemoArc:PRODEMO.LHA
  55.  
  56. ProDemoArc:Install/ReqRequest " Insert second disk in {DriveB} " Ready Quit
  57. IF NOT WARN
  58.   SKIP OutaHere
  59. ENDIF
  60.  
  61. SYS:System/FORMAT <NIL: >NIL: DRIVE {DriveB} NAME Pro-Data QUICK NOICONS
  62. IF FAIL
  63.   SYS:System/FORMAT <NIL: >NIL: DRIVE {DriveB} NAME Pro-Data NOICONS
  64.   IF FAIL
  65.     ProDemoArc:Install/ReqRequest " Floppy cannot be formatted " QUIT
  66.     SKIP OutaHere
  67.   ENDIF
  68. ENDIF
  69.  
  70. CD {DriveB}
  71. {LhA_path$"C:LhA"} x ProDemoArc:PRODATA.LHA
  72.  
  73. ASSIGN ProDemoArc:
  74.  
  75.  
  76. LAB OutaHere
  77. ENDCLI      ; Comment this line if you run from CLI instead of IconX
  78.  
  79.